home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byt85jan.lbr / NOSQUARE.BQS / NOSQUARE.BAS
BASIC Source File  |  1985-09-15  |  384b  |  8 lines
  1. 10              REM ROUTINE TO GENERATE NON-SQUARE NATURAL NUMBERS.  PROGRAM                        CREATES AN INFINITE LOOP.  HIT THE BREAK KEY TO TERMINATE.
  2. 20 CLS
  3. 30 COUNTER=1
  4. 40 NONSQUARE=INT(COUNTER+SQR(COUNTER)+.5)
  5. 50      PRINT "Nonsquare number";COUNTER;" is";NONSQUARE
  6. 60      COUNTER=COUNTER+1
  7. 70 GOTO 40
  8.